home *** CD-ROM | disk | FTP | other *** search
/ Pulp 2 / Pulp_02_1999_POL_de.d64 / m1B .CC. u B (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  155 lines
  1. 10 gosub6000:m=1
  2. 11 poke211,13:poke214,6:sys58640:print"[153]--redaxinfos--":m=1
  3. 12 poke211,13:poke214,8:sys58640:print"[153]-----news-----"
  4. 13 poke211,13:poke214,10:sys58640:print"[153]---only 4 u---"
  5. 14 poke211,13:poke214,12:sys58640:print"[153]-----disk-----"
  6. 15 poke211,13:poke214,14:sys58640:print"[153]--talk to me--"
  7. 16 poke211,13:poke214,16:sys58640:print"[153]----addies----"
  8. 17 poke211,13:poke214,18:sys58640:print"[153]              "
  9. 20 geta$:ifa$=""andm<>6thengosub5030:m=m+1:goto30
  10. 21 ifa$=""andm<>1thengosub5030:m=m-1:goto30
  11. 22 ifa$=chr$(13)then100
  12. 30 gosub5000:goto20
  13. 100 if m=1thengosub5030:goto6100
  14. 101 ifm=2thengosub5030:goto2000
  15. 102 ifm=3thengosub5030:goto3000
  16. 103 ifm=4thenu$="d*":goto7000
  17. 104 ifm=5thengosub5030:goto4000
  18. 105 ifm=6thenu$="a*":goto7000
  19. 2000 poke211,13:poke214,6:sys58640:print"[153]----medien----"
  20. 2001 poke211,13:poke214,8:sys58640:print"[153]---newcomer---":m=1
  21. 2002 poke211,13:poke214,10:sys58640:print"[153]-berlin-party-"
  22. 2003 poke211,13:poke214,12:sys58640:print"[153]----p.o.l.----"
  23. 2004 poke211,13:poke214,14:sys58640:print"[153]---..back..---"
  24. 2005 poke211,13:poke214,16:sys58640:print"[153]              "
  25. 2006 geta$:ifa$=""andm<>5thengosub5030:m=m+1:goto2005
  26. 2007 ifa$=""andm<>1thengosub5030:m=m-1:goto2005
  27. 2008 ifa$=chr$(13)then2100
  28. 2009 gosub5000:goto2006
  29. 2100 ifm=1thenu$="n1*":goto7000
  30. 2101 ifm=2thenu$="n2*":goto7000
  31. 2102 ifm=3thenu$="n3*":goto7000
  32. 2103 ifm=4thenu$="n4*":goto7000
  33. 2104 rem ifm=5thenu$="****************":goto7000
  34. 2105 ifm=5thengosub5030:goto11
  35. 3000 poke211,13:poke214,6:sys58640:print"[153]--basic kurs--"
  36. 3001 poke211,13:poke214,8:sys58640:print"[153]---cookbook---":m=1
  37. 3002 poke211,13:poke214,10:sys58640:print"[153]-mr interview-"
  38. 3003 poke211,13:poke214,12:sys58640:print"[153]-story corner-"
  39. 3004 poke211,13:poke214,14:sys58640:print"[153]---..back..---"
  40. 3005 poke211,13:poke214,16:sys58640:print"[153]              "
  41. 3006 geta$:ifa$=""andm<>5thengosub5030:m=m+1:goto3006
  42. 3007 ifa$=""andm<>1thengosub5030:m=m-1:goto3006
  43. 3008 ifa$=chr$(13)then3100
  44. 3009 gosub5000:goto3006
  45. 3100 ifm=1thenu$="u1*":goto7000
  46. 3101 ifm=2thenu$="u2*":goto7000
  47. 3102 ifm=3thenu$="u3*":goto7000
  48. 3103 ifm=4thenu$="u4*":goto7000
  49. 3104 ifm=5thengosub5030:goto11
  50. 4000 poke211,13:poke214,6:sys58640:print"[153]--small talk--"
  51. 4001 poke211,13:poke214,8:sys58640:print"[153]---..back..---":m=1
  52. 4002 poke211,13:poke214,10:sys58640:print"[153]              "
  53. 4003 poke211,13:poke214,12:sys58640:print"[153]              "
  54. 4004 poke211,13:poke214,14:sys58640:print"[153]              "
  55. 4005 poke211,13:poke214,16:sys58640:print"[153]              "
  56. 4006 geta$:ifa$=""andm<>2thengosub5030:m=m+1:goto4006
  57. 4007 ifa$=""andm<>1thengosub5030:m=m-1:goto4006
  58. 4008 ifa$=chr$(13)then4100
  59. 4009 gosub5000:goto4006
  60. 4100 ifm=1thenu$="t1*":goto7000
  61. 4101 ifm=2thengosub5030:goto11
  62. 4102 ifm=3thenu$="t3*":goto7000
  63. 4103 ifm=4thenu$="t4*":goto7000
  64. 4104 ifm=5thengosub5030:goto11
  65. 5000 rem
  66. 5001 poke211,13:poke214,(3+2*m):sys58640:print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  67. 5002 poke211,13:poke214,(5+2*m):sys58640:print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  68. 5003 poke211,13:poke214,(3+2*m):sys58640:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  69. 5004 poke211,13:poke214,(5+2*m):sys58640:print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  70. 5005 poke211,13:poke214,(3+2*m):sys58640:print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  71. 5006 poke211,13:poke214,(5+2*m):sys58640:print"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  72. 5007 poke211,13:poke214,(3+2*m):sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  73. 5008 poke211,13:poke214,(5+2*m):sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  74. 5009 poke211,13:poke214,(3+2*m):sys58640:print"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  75. 5010 poke211,13:poke214,(5+2*m):sys58640:print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  76. 5011 poke211,13:poke214,(3+2*m):sys58640:print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  77. 5012 poke211,13:poke214,(5+2*m):sys58640:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  78. 5013 poke211,13:poke214,(3+2*m):sys58640:print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  79. 5014 poke211,13:poke214,(5+2*m):sys58640:print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  80. 5015 poke211,13:poke214,(3+2*m):sys58640:print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  81. 5016 poke211,13:poke214,(5+2*m):sys58640:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  82. 5017 poke211,13:poke214,(3+2*m):sys58640:print"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  83. 5018 poke211,13:poke214,(5+2*m):sys58640:print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  84. 5019 poke211,13:poke214,(3+2*m):sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  85. 5020 poke211,13:poke214,(5+2*m):sys58640:print"[195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  86. 5021 poke211,13:poke214,(3+2*m):sys58640:print"[196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
  87. 5022 poke211,13:poke214,(5+2*m):sys58640:print"[198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
  88. 5023 poke211,13:poke214,(3+2*m):sys58640:print"[197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
  89. 5024 poke211,13:poke214,(5+2*m):sys58640:print"[210][210][210][210][210][210][210][210][210][210][210][210][210][210]"
  90. 5025 poke211,13:poke214,(3+2*m):sys58640:print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  91. 5026 poke211,13:poke214,(5+2*m):sys58640:print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175]":return
  92. 5030 poke211,13:poke214,(3+2*m):sys58640:print"              "
  93. 5031 poke211,13:poke214,(5+2*m):sys58640:print"              ":return
  94. 5099 return
  95. 5100 rem
  96. 5101 poke53280,2:::::::::::::::::::::::::::poke53280,0:goto 10
  97. 6000 poke53281,0:poke53280,0:poke53265,peek(53265)and239
  98. 6001 print"[147][176][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195][195][174]";
  99. 6002 print"B       B[151]CC>  [151]p[152]ul[155]p is[155]su[152]e[151] 2  [151]<CCB       B";
  100. 6003 print"B[154] [169]  [146][154]   [171]CCCCCCCCCCCCCCCCCCCCCC[179][154]      [146][154] B";
  101. 6004 print"B  [146]  [146]   B                      B    [146]  [146] B";
  102. 6005 print"B[154]  [146][154]  [146][154]   B[154]                      B[154]    [146][154]  [146][154] B";
  103. 6006 print"B      [146] B                      B     [146][169] B";
  104. 6007 print"B[154]       B          [154]            B[154]       B";
  105. 6008 print"B      [146] B                      B [169]    [146] B";
  106. 6009 print"B[154]      [146][154] B[154]                      B[154]  [146][154]     B";
  107. 6010 print"B      [146] B                      B  [146]     B";
  108. 6011 print"B       B  [154]                    B[154] {$7f}    [146][154] B";
  109. 6012 print"B     {$7f}[146] B                      B       B";
  110. 6013 print"B[154]     [160][146][154] B[154]                      B[154]      [146][154] B";
  111. 6014 print"B      [146] B                      B  [146]     B";
  112. 6015 print"B     [146][169][154] B[154]                      B[154]  [146][154]     B";
  113. 6016 print"B       B                      B       B";
  114. 6017 print"B[154] [169]  [146][154]   B[154]                      B[154]      [146][154] B";
  115. 6018 print"B  [146]  [146]   B                      B    [146]  [146] B";
  116. 6019 print"B[154]  [146][154]  [146][154]   B[154]                      B[154]    [146][154]  [146][154] B";
  117. 6020 print"B      [146] B                      B     [146][169] B";
  118. 6021 print"B[154]       B[154]                      B[154]       B";
  119. 6022 print"[173][178]CCCCCC[177]CCCCCCCCCCCCCCCCCCCCCC[177]CCCCCC[178][189]";
  120. 6023 print" [194][151]>[151]die [152]pulpr[155]edax [155]wuensc[155]ht vie[152]l spa[151]ss!<[194] ";
  121. 6024 print" [173]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[189] ";
  122. 6025 poke53265,peek(53265)or16:return
  123. 6100 gosub6200:print"[147][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]";
  124. 6101 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
  125. 6102 print"B [158]> informationen zur pulp-redaktion [158]< B";
  126. 6103 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
  127. 6104 print"B                                      B";
  128. 6105 print"B[156]mitglieder:                           B";
  129. 6106 print"B[156]EEEEEEEEEEE                           B";
  130. 6107 print"B[154]lost brain, diablo, punica, fuchs     B";
  131. 6108 print"B                                      B";
  132. 6109 print"[194][156]all mag-codings:                      [194]";
  133. 6110 print"B[156]EEEEEEEEEEEEEEEE                      B";
  134. 6111 print"B[154]lost brain                            B";
  135. 6112 print"B[154]                                      B";
  136. 6113 print"B[156]texte:                                B";
  137. 6114 print"B[156]EEEEEE                                B";
  138. 6115 print"B[154]gesamte crew (s.o.), leser (!!!)      B";
  139. 6116 print"B                                      B";
  140. 6117 print"B[156]                                      B";
  141. 6118 print"B[156]                                      B";
  142. 6119 print"B[156]       [154]                               B";
  143. 6120 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  144. 6121 print"B[158] dieses diskmag ist unverkaeuflich !! B";
  145. 6122 print"[171]CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC[179]";
  146. 6123 print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]";
  147. 6124 poke53265,peek(53265)or16
  148. 6125 geta$:ifa$<>chr$(13)then6125
  149. 6126 goto10
  150. 6200 poke53265,peek(53265)and239:return
  151. 7000 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34);u$;chr$(34)",8"
  152. 7001 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
  153. 7002 poke631,13:poke632,13:poke198,2
  154. 7003 printchr$(19);:end
  155.